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INTRODUCTORY 


An “ideal” computer program edit system has been 
defined as one which meets these criteria: 

• Detects input errors 

• Produces clear, self-explanatory edit messages 

• Standardizes edit procedures 

• Aids in system or program debugging 

• Functions in a minimal core environment 

EPG-II - Edit Program Generator System for Business 
Applications -- is a tested and proven proprietary product of 
Computer Sciences Corporation, created and designed to 
bring reality in line with the ideal edit. 


v 




WHY EPG-II? 


Most data processing professionals readily agree on 
the need for input or “front-end” editing of com- 
puter software systems and the programs which 
comprise systems. Indeed, many software technolo- 
gists would find it ditficult to imagine a data 
processing application without some sort of editing 
function. 

Without a competent edit, two results are almost 
always produced: processing programs function 
incorrectly, if at all, and output ranges from the 
unreliable to the useless. A common dictum among 
professionals in the industry is ‘‘garbage in/garbage 
out”, clearly indicating the wide spread recognition 
of the need for dependable and thorough input 
editing. 

The unfortunate reality is that editing programs, in 
many situations, fall far short of meeting the criteria 


- detecting input errors, producing clear and self- 
explanatory edit messages, standardizing edit proce- 
dures, and aiding in system or program debugging, 
while operating within a minimal core requirement - 
for the “ideal” edit. 

The consequences of this unfortunate reality are 
ultimate-user dissatisfaction with the output and 
unnecessarily high programming system costs. 

Computer Sciences Corporation (CSC) presents as 
its answer to these problems 

EPG-II, 

the Company’s Edit Program Generator System for 
Business Applications, as an efficient means for 
implementing input edits which meet the criteria for 
reliable systems performance. EPG-II has been tested 
and proven in user facilities across the United States 
and is available for immediate installation. 





WHAT IS EPG-II? 


EPG-II is an edit program generator designed to 
meet the requirements of virtually any edit situation 
encountered in normal business data processing appli- 
cations. To perform its program generation function, 
EPG-II employs a specialized edit language of some 
60 mnemonics which provide the user with full 
language capability. 

An analyst or programmer is required only to 
write the appropriate edit mnemonics for a proposed 
program. EPG-II assembles or compiles the state- 
ments to generate the edit program, which in turn 
becomes the input or “front-end” edit to the applica- 
tion program. 

As EPG— II reads its coded edit language input and 
translates that input into executable computer 
instructions, it performs these two meaningful 
functions: 


1) EPG-II diagnoses the code for validity of 
reference to the language specifications and 
capabilities, simultaneously producing a print- 
out of diagnostic messages explaining any errors 
in the input. 

2) EPG-II prints English language documentation 
with reference to any edit language statement 
in question, together with a full explanation of 
the nature of the statement and the action 
required to satisfy the conditions contained in 
the statement. 

The end result is an error-free program, produced 
in far less time than is required for individual edit 
program writing, and with many fewer computer 
passes required to prove the validity of the edit and 
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its system or individual program application. EPG-II 
functional characteristics, previously referenced, are 
discussed individually in the paragraphs which follow. 

Error Detection 

EPG-II provides the capability to detect errors by 
editing the validity of field contents, the validity of 
card hierarchial relationships, conditional require- 
ments within cards, cross-foot totals within cards, and 
by verifying batch and grand totals to external 
controls. 


Self-Explanatory Edits 

The error message capabilities of EPG-II have 
been refined through exposure to a variety of users. 
These capabilities have demonstrated themselves to 
be self-explanatory, providing the technologist with 
ready understanding of a detected error and the 
required corrective action. 


Edit Standardization 

EPG-II, by the very nature of its standardized 
approach to edits and edit messages, provides an 
effective means for standardization of all edit proce- 
dures within an EDP department or installation; this 
condition prevails as personnel changes occur, or as 
higher priority assignments necessitate the employ- 
ment on a project of personnel not familiar with the 
development of the subject application. 

Debugging Aid 

EPG-II permits test data for a system to be edited 
precisely as live input data is to be edited. At the 
same time, EPG-II enables test data to be created 
quickly with the assurance that the data is “clean”. 

Minimal Core Environment 

The system operates in a minimal core environ- 
ment; most EPG-II applications will execute in less 
than 20K of core memory. 
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Who Benefits From EPG-II? 


$ 


From the viewpoint of corporation or institution 
management, valid and meaningful outputs produced 
promptly on a cost-effective basis are the criteria for 
evaluating computer services. From the viewpoint of 
data processing professionals, fast and accurate 
responses to management requirements, produced on 
the basis of lowered unit costs, are the criteria for 
efficient system performance. EPG-II is a means for 
accomplishing the objectives of both senior manage- 
ment and departmental management in producing 
well-structured reports, accurately and on a timely 
basis, and at minimum implementation cost. 

For Senior Management 

EPG-II saves time in terms of responsiveness to 
requests from managers for vital information on a 


quick turn-around basis. This is accomplished in a 
number of ways, particularly with EPG-IFs reduced 
requirement for time required to write and debug 
programs. Edit operations are reduced to minutes for 
simple programs, a few hours for more complex 
programs, compared with the man-days which are 
required in many data processing installations. Since 
management can depend on those reports, the effects 
of i enlightened executive decisions, based upon the 
more accurate and timely information EPG-II makes 
possible, are then reflected in operating results. 

For EDP Department Management 

The problem which persists in most EDP installa- 
tions, the lack of sufficient trained personnel, is 
minimized with EPG-II. The system’s standardization 


features enable personnel to be moved from applica- 
tion to application without lengthy orientation in the 
edit status of a new application. At the same time, 
quick and comprehensive error detection and identifi- 
cation enable final implementation of an application 
in far less time than a user normally experiences 
without EPG-II, Less editing and test evaluation time 
consumed produces greater flexibility within limited 
budgets. 


EPG-II In Use 

As an edit programming language, EGP-II is 
logical, straightforward, and consistent. The instruc- 
tion set and coding conventions are directed toward 
ease of use. EPG-II dictates that the edit be 
thoroughly defined when it is programmed - the 
unanticipated is not overlooked. Therefore, relatively 
inexperienced programmers can become proficient in 
the use of the language with less than one day’s 
training. 

Since EPG-II is an edit program generator, diag- 
nostics are edit-oriented. Code processed by EPG-II 
is analyzed for validity, and any coding errors are 
noted along with self-explanatory diagnostic messages 
indicating the nature of the individual error. 

EPG-II is self-documenting. When input is proces- 
sed through the EPG-II system to create the edit 
program, a complete set of documentation for the 
program also is created. Each statement is followed 
by a narrative description of the statement, describing 
in English the exact actions to be taken by the 
programmer in accordance with that statement. No 
manually-written documentation is required. Further, 
EPG-II edit programs have been proved to be easier 
to write than narrative edit specifications. The self- 
documenting EPG-II program, written in place of 
edit specifications, also eliminates the possibility of 
misinterpretation of written specifications. 



EPG-II audits master files and assures the validity 
of those files. As an auditor, the system provides a 
means for correcting invalid data, and previously- 
programmed weak edits can be identified and cor- 
rected or rewritten. When master files contain inaccu- 
rate or improper data, EPG-II can be employed to 
improve the condition of those existing files. The 
accuracy and completeness of the EPG-II edit 
requirements applied to master files cause the 
professional’s confidence level in the files to be raised 
significantly. 

Most EPG-II users have found that the system 
helps to create a positive atmosphere in which new 
systems and approaches can be undertaken by the 
Data Processing Department in behalf of its company 
users. 

The widely-recognized problem of communica- 
tions between and among departments is minimized, 
insofar as report requirements and output efficacy are 
concerned, when EPG-II is employed. Error com- 
munication messages to the user are 3 clearly under- 
stood, and the validated edit removes the possibility 
of incomplete edits which otherwise clouds the issue. 

It is in the area of cost reduction, apart from the 
system’s utility, that EPG-II perhaps produces its 
most beneficial effect. EPG-II coding times are less 
than times required to prepare final specifications for 
the coding of edit problems, or roughly equal to the 
time required to prepare a File Definition in the Data 
Division of a COBOL program ; thus, all of the coding 
time and attendant costs normally expended prepar- 
ing the actual logic of the edit in a COBOL-type 
program are completely eliminated. Most EPG-II 
programs can be compiled and debugged in three 
compilation passes, effecting a further saving. EPG-II 
can be used for the preparation of test data, as all 
systems testing can be done with input created by the 
edit program, edited to the true specifications of the 
system, and eliminating thereby the requirement for 
programmers to develop their own test data for 
individual segments of a system. Control desk and 
maintenance costs are similarly reduced. 
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HOW DOES EPG-II WORK? 


EPG-II generates edit programs for use with the 
IBM System/360-30 or larger, operating in either 
DOS or OS environments ; tape or disk systems are 
accommodated. Partition requirements are minimal, 
depending upon a particular hardware configuration. 

Edit programs generated by EPG-II read input 
transactions, verify key numbers to external files or 
tables, edit the format and content of input records 
to the edit specifications, make relational tests 
between input records, accumulate batch and grand 
total balances and check these to batch control 
inputs, format and write output files for subsequent 
processing, and prepare printed processing logs. These 
processing logs constitute journals of all batches 
submitted for a particular run, with both the speci- 
fied and computed totals for each batch. Within each 
batch, detected errors are printed along with an image 


of the error record. When an error is detected, an 
error message is printed, and the editing continues. 
Thus, one input record could produce several error 
messages. 

Code Preparation 

To write an EPG-II program, three basic types of 
code are prepared - control packets, edit packets, and 
logic packets. Each packet is looked upon as a 
separate routine, designed to perform a specific 
function within the generated edit program. 

Control Packets — are used to define the identifi- 
cation of the program, input files, output files, record 
types within input files, external files, and external 
tables. Based upon the contents of these control 


packets, EPG-II creates the necessary code to define, 
read, and write files and to accumulate necessary 
batch controls. 

Edit Packets - are created for each input record 
type. These packets define all of the edit tests to be 
performed on a given record type as well as the 
formatting criteria for each output record. EPG-II 
then generates the code necessary to perform the 
actual editing and formatting functions. 

Logic Packets - are used as subroutines within 
edit packets to define logical relationships among 
various fields on a given input record. These relation- 
ships may take one of the following forms: 

1) if a specific condition is met in one field, then 
some other condition must also be met in 
another field; 

2) at least one of several conditions must be met 
in a particular field or in several fields; 

3) all of a set of conditions must be met in one or 
more fields, or 

4) some combination of the first three. 


Logical statements are provided to specify the editing 
criteria for such logical relationships testing and are 
used in conjunction with the normal editing state- 
ments provided in EPG-II. 

Special Features 

In addition to the basic packet types designed to 
accomplish equally basic editing functions within 
EPG-II, three additional capabilities are provided to 
handle additional types of editing circumstances 
frequently encountered. These situations are treated 
in the scratch area, in external tables, and in external 
files. 

The scratch area is a work area which provides the 
user with the capability of either saving data for 
reference while processing subsequent records, or for 
building fields prior to moving to an output format- 
ting area. The size of the scratch area may be defined 
by the user. EPG-II also provides a capability for first 
building external tables and then referencing and 
extracting data from the tables as an edit is 
performed. Indexed sequential files also may be used 
for reference and retrieval purposes as an edit is 
performed. 

Figure 1 on the following page indicates the input 
and output devices optionally compatible with 
EPG-II system performance. 


INPUT 


OUTPUT 
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Examples 

Comparative examples of the EPG-II program- 
ming required to edit an 80-column card input are 
presented in the figures which follow. The fields 
edited by the COBOL and EPG-II programs include 
those for date, product number, sales quantity, three 
sales areas, sales dollars, and description. 

The apparently abbreviated Figure 3 actually 


illustrates all of the EPG-II source statements 
required to produce the edit program for the speci- 
fied application. 

Figure 4 is the compile listing stemming from the 
EPG-II source statements. 

The three pages comprising Figure 6 are the 
COBOL source statements required to perform the 
same edit functions performed by the EPG-II pro- 
gram shown in Figure 3. 


ID 

DATE 

PROD 

NO. 

SALES 

QTY 

SA] 

1 

LES AR 

2 

EA 

3 

SALES 

DOLLARS 

DESCRIPTION 

1 

5 

1 1 

17 : 

24 

29 

34 

39 

49 

70 


ID 

DATE 

PRODUCT NUMBER 
SALES QTY 
SALES AREAS 
SALES DOLLARS 
DESCRIPTION 
BLANK 


Card identification 
MMDDYY 

AANNNN - Range 0001-5999 
Right justified digits 
Cross foot and verify with sales qty 
Take batch total 


Figure 2. Card Input 


IDEM 

CODE = BB » APPL=* EXAMPL E 1 # 

EX 100 100 

INPUT 

CARD=80 

EX 100 200 

OUTPT 

DISK=1,DKLEN=70 

EX 100300 

CDTYP . 

BB01 ,BB02 

EX100400 

HEADR 

BB01 

EX 100 500 

EDITS 

BB02 

EX 100600 

DATE 

5, 10,6 

EX100700 

VALID 

11 ,12, ALPHA 

EX 100 800 

VALID 

13, 16, DIGIT 

EX 100900 

UPLIM 

13,1 6,5999 

EX101000 

LGLIM 

13,16,0001 

EX 10 1 100 

VALID 

17, 23, DIGIT 

EX 10 1200 

BLR JD 

24,28 

EX 10 1300 

BLR JD 

29,33 

EX 10 1400 

BLR JD 

34,38 

EX101500 

VALID 

39, 48, DIGIT 

EX 10 1600 

VALID 

49,70, ALPHA, BLANK, DIGIT 

EX101700 

CROSS 

24,28,29,33,34,38, 17,23 

EX101800 

BATCH 

39,48,48, 1 

EX 10 1900 

BLANK 

71,80 

EX 10 2000 

HOVE 

70, INPUT, 1,DISKR1,1 

EX102100 

ENDIT 

BB02 

EX 10 2200 

END 


EX 102300 ! 


Figure 3. EPG-11 Source Statements 
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STMT 

SOURCE STATEMENT FDDS CL3 _ 

3 PAGE 1 

2 

IDENT 

CODE=BB,APPL=' EXAMPLE 1' 


8 

INPUT 

CARD=80 

EX100200 

9 


* tCARD INPUT, SYSUNIT IS SYS008 


10 


*, RECORD LENGTH IS 80 CHARACTERS. 


11 

OUTPT 

DISK=1,DKLEN=70 

EX100300 

12 


*,DISK OUTPUT SPECIFIED, FILENAME IS BBDASD. 


13 


*, RECORD LENGTH IS 70 CHARACTERS. 


14 


*, FILENAME FOR THE RESTART FILE IS BBEPGL . 


15 


*» VALID RECORD NAMES FOR MOVE STATEMENTS ARE - 


16 


*, DISKR1 


17 

CDTYP 

BB01 , BB02 

EX100400 

18 

HEADR 

BB01 

EX100500 

726 

EDITS 

BB02 

EX100600 

731 

DATE 

5,10,6 

EX100700 

740 


*t VERIFY THAT THE DATE IN COLS 5 THRU 10 IS VALID. 


741 

VALID 

lit 12, ALPHA 

EX100800 

742 


*, ALPHABETIC 


752 


*, VERIFY THAT COLS 11 THRU 12 CONTAIN VALID CHARACTERS 


753 

VALID 

13, 16, DIGIT 

EX100900 

754 


*, NUMERIC 


764 


*, VERIFY THAT COLS 13 THRU 16 CONTAIN VALID CHARACTERS 


765 

UPLIM 

13,16,5999 

EX101000 

776 


*» VERIFY THAT COLS 13 THRU 16 ARE LESS THAN 5999 


777 

LOLIM 

13,16,0001 

EX101100 

788 


*» VERIFY THAT COLS 13 THRU 16 ARE GREATER THAN 0001 


789 

VALID 

17, 23, DIGIT 

EX101200 

790 


*, NUMERIC 


800 


*, VERIFY THAT COLS 17 THRU 23 CONTAIN VALID CHARACTERS 


801 

BLRJD 

24,28 

EX101300 

821 


* , COLS 24 THRU 28 MUST BE BLANK OR RIGHT-JUST DIGITS 


822 

BLR JD 

29,33 

EX101400 

842 


* r COLS 29 THRU 33 MUST BE BLANK OR RIGHT-JUST DIGITS 


843 

BLRJD 

34,38 

EX101500 

863 


* f COLS 34 THRU 38 MUST BE BLANK OR RIGHT-JUST DIGITS 


864 

VALID 

39, 48, DIGIT 

EX101600 

865 


*, NUMERIC 


875 


■*, VERIFY THAT COLS 39 THRU 48 CONTAIN VALID CHARACTFRS 


876 

VALID 

49,70, ALPHA, BLANK, DIGIT 

EX101700 

877 


*, ALPHABETIC, BLANKS , NUMERI C 


889 


*f VERIFY THAT COLS 49 THRU 70 CONTAIN VALID CHARACTERS 


890 

CROSS 

24,28,29,33,34,38,17,23 

EX101800 

891 


*, 24-28 


896 


*, 29-33 


901 


*t 34-38 


906 


*, 17-23, TOTAL 


917 


*, VERIFY CROSS-FOOTING IN FIELDS ABOVE 


918 

BATCH 

39,48,48,1 

EX101810 

926 


*, COMPUTE BATCH TOTALS ON COLS 39 THRU 48, USING 


927 


*, ACCUMULATOR 1, SIGN IS IN COL 48 


972 

BLANK 

71,80 


980 


* t TEST FOR BLANKS IN COLS 71 THRU 80 


981 

MOVE 

70, INPUT, 1,DISKR1,1 


984 


* , MOVE 70 COLS FROM INPUT, 1 TO DISKR1,1. 


985 

END IT 

BB02 

EX102900 

994 

END 




Figure 4. Compile Listing 
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(B^EPG 


Card ID 


Application 

Name 


b|epg CexampleJi> 


Set Date 


Card No. 
of Batch 


EPG/II PROCESSING LOG 


<$7/2 4/69> PAGE 


ERROR MESSAGE 


FIELDQARD)i...5....1....5....2....5....3....5....4....5....5....5 # ...6....5....7 5. 


CROSS-FOOTING 
INVALID CHAR 
INVALID CHAR 
NOT ALL BLANK 
UNKNOWN CARD I 


BATCH NUMBER 69 



X 

X 



Figure 5. Error Processing Log 


L INE 


SEQ. 


SOURCE S T ATE HE NT P 


PAGF 


58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 
69 
7C 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 
89 
9 C 

91 

92 

93 

94 

95 

96 

97 

98 

99 
IOC 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
1 1 1 
112 

113 

114 


004010 
004020 
004030 
004040 
004050 
004060 
004070 
004080 
004082 
003060 
003070 
003080 
003090 
C 0 3 1 0 0 
003110 
003120 
C 03 130 
G03140 
003150 
004089 
004090 
004100 
0041 10 
004120 
004130 
004140 
004150 
004160 
004170 
C 041 80 
004190 
005010 
005020 
005030 
005040 
005060 
005070 
005150 
005080 
005090 
005100 
005105 
005110 
005120 
005130 
005140 
0051 60 
005170 
005180 
005190 
006010 
006015 
006020 
006030 
006040 
006050 
006060 


LISTING 

RECORD CONTAINS 133 CHARACTERS 
LABEL RECORDS ARE OMITTED 
RECORDING MODE IS F 
DATA RECORD IS PRINT-LINE. 
PRINT-LINE. 

03 CONTROL-CODE PICTURE X. 

03 PRINT-IMAGE PICTURE X { 80 } . 

03 ERROR-CODES. 


PICTURF X { 0 1 } VALUE SPACE. 

PICTURE S 9 ( 1 2 ) VALUE -*-0 COMPUTAT ION AL-3 
PICTURE S 9 ( 1 2 ) VALUE +0 COMP UT A T I ON AL- 3 

PICTURE X ( 80 ) OCCURS 100 TIMES. 


05 ERROR-1 PICTURE X(01). 

0 5 ERROR-2 PICTURE X < 0 1 ) . 

05 ERROR-3 PICTURE X { 0 1 ) . 

05 ERROR-4 P ICTURE X (01 ) . 

05 ERROR-5 PICTURE X(01). 

05 ERROR-6 PICTURE X ( 0 1 ) . 

05 ERROR-7 PICTJRE X (0 1 ) . 

05 ERROR-8 PICTURE X(01). 

05 ERROR-9 PICTURE X ( 0 1 ) . 

05 ERRCR-0 PICTURE X ( 0 1 ) . 

03 F ILLER PICTURE X (42) . 

WORKING-STORAGE SECTION. 

77 INN PICTURE S9I03) VALUE +0 COMPUTAT ION AL-3 . 

77 OUT PICTURE S9 < 03 ) VALUE +0 COM PUT AT I ON AL - 3 . 

77 RATCH-ACCUM PICTURE S 9 ( 12 5 VALUE +0 COMPUTAT ION AL- 3 

77 BATCH-TGTL-HOLD PICTURE X(10). 

77 BATCH-HOLD PICTURE X ( 02 ) . 

77 EDIT-SWITCH PICTURF X (01 ) VALUE SPACE. 

77 SALES-ACCUM PICTURE S9(12) VALUE +0 COMPUTAT I ON AL- 3 

77 CROSS-TOTAL PICTURE S9(12) VALUE +0 COMP UT A T I ON AL- 3 

01 CARD-TABLE. 

03 HOLD-AREA PICTURE X(80) OCCURS LOO TIMES. 

PROCEDURE DIVISION. 

001-START. 

OPFN INPUT CARD-'IN. 

OPEN OUTPUT DISK-OUT, LISTING. 

003- READ-INPUT. 

READ CARD-IN AT END GO TO 0 17-END-OF- JOB . 

MOVE SPACES TO PRINT-LINE. 

IF BATCH-ID IS EQUAL TO •3001* GO TO 005-BATCH-PROCESS. 
PERFORM 0 13-CARD-EDI 1 THRU 015-EDIT-END. 

IF INN = 100 move *J’ TO ERROR-0. 

IF ERROR-CODES NOT = SPACES GO TO 004-PR INT-CARD- IMAGE. 

ADD SALES-DOLLARS TO SALES-ACCUM. 

ADD 1 TO INN 

MOVE SALES TO HOLE-AREA (INN). 

004- PR I NT-CARD-I MAGE. 

MOVE SALES TO PRINT-IMAGE. 

MOVE *1* TO CONTROL-CODE. 

WRITE PRINT-LINE AFTER I. 

GO TO 003-READ-INPUT. # 

005- BATCH-PROCESS. 

IF BATCH-TOTL-HOLD = SPACES GO TO 00 7-8 AT CH-OK . 

IF SALES-ACCUM IS EQUAL TO 8ATCH-ACCUM 


GO TO 007-BAT CH-OK • 
DISPLAY ’BATCH DELETED . 
DISPLAY ’BATCH NUMBER. . 
GO TO 011-RE-INITI ALIZE. 


OUT OF BALANCE’ UPON CONSOLE. 
’ BATCH-HOLD UPON CONSOLE. 


ED! T0001 
EDI T 0001 
EDIT 0001 
EDI T0001 
EDI TOOOL 
EDIT 0001 
EDIT 0001 
EDI T0006 
E D I T 0006 
EDIT 0001 
EDI TOGO I 
EDIT0001 
EDI TOGO! 
EDI T0001 
EDIT 0001 
EDIT0001 
EDI TOGO] 
EDI T 0001 
E0IT0002 
EDI T 0006 
EDI TOGO! 
ED IT0003 
EDIT 0003 
EDI T0001 
EDI T0006 
EDIT 0001 
EDIT 0001 
EDIT 0001 
F D I T 0 0 0 1 
EDI T0003 
EDIT 0003 
EDIT 0001 
EDI T 000 1 
EDI TOOOL 
EDIT 0001 
EDI T0001 
ED IT0001 
FDI T 0006 
EDI T0001 
EDIT 0001 
EDI T0006 
EDI T0006 
EDI T0006 
EDI T0002 
EDI T 0003 
EDI T0002 
EDI T0001 
ED I T 0001 
FDI T 000 1 
EDI T0001 
EDI T 000 1 
FDI T 0006 
E D IT 0006 
FO IT 0001 
C DI T 0001 
EDI TOGO! 
FDI T0001 


Figure 6. COBOL Source Statements, 2 of 3 



LINE 

SFQ . 


SOURCE STATEMENT 

PACE 3 

115 

0060 70 

007- 

-3 ATCH-OK* 

FDI TOOOI 

116 

006073 


MOVE BATCH-TOTAL TO B ATCH-T OT L-HOLD . 

EDIT 0007 

117 

006075 


IF BATCH-TOTAL NOT NUMERIC MOVE ZEROS TO BATCH-TOTL-HOL 0 

FDI T 0005 

118 

C 0 6 0 9 5 


DISPLAY ’BATCH EDIT ERROR' UPON CONSOLE. 

EDIT 0006 

119 

006098 


IF BATCH-TOTL-HOLD NOT = SPACES MOVE BATCH-TOTAL TO 

EDI TO 007 

120 

006099 


BATCH-ACCUM. 

EDIT 0007 

121 

006100 


MOVE BATCH-NUMBER TO BATCH-HOLD. 

EDIT0001 

122 

006110 

009- 

-WR I TF-DI SK. 

EDI T0001 

1 23 

006120 


ADD 1 TO OUT. 

ED I T 0001 

124 

006130 


IF OUT GREATER THAN INN GO TO 0 1 1-R E- IN I T l At I ZE . 

EDIT 0003 

125 

006140 


WRITE SALFS-FILE FROM HOLD-AREA (OUT). 

ED I TOO 03 

126 

006150 


GO TO 009-WRITE-DISK. 

EDI T0001 

127 

007010 

Oil- 

-RF- INITIALIZE. 

EDI TOGO 1 

128 

007020 


MOVE ZEROS TO INN, OUT, BATCH-ACCUM. 

ED I T 0002 

129 

00 7050 


GO TO 003-READ-INPUT. 

EDI T0001 

1 3 C 

007060 

013- 

-CARD-FDIT. . 

EDIT 0001 

131 

007070 


IF REMAINDER IS NOT EQUAL TO SPACES, 

EDIT0001 

132 

007080 


MOVE SPACES TO REMAINDER MOVE ’I’ TO ERROR-9. 

EDIT 0001 

133 

007090 


IF CARQ-TRANS IS EQUAL TO *BB01» GO TO 0 I 4-C HECK- DA T E . 

ED I T 0004 

134 

007095 


IF CARD-TRANS IS EQUAL TO »BB02* GO TO 0 l 4-C HECK- DAT E . 

EDIT 0004 

135 

C 07 1 00 


MOVE ’A' TO ERROR-1. GO TO 015-EDIT-END. 

EDI T0004 

136 

007105 

014 

-CHECK-DATE. 

EDI T0004 

137 

007110 


IF MONTH IS LESS THAN 01 MOVE 'B' TO ERROR-2. 

EDI T0005 

138 

007120 


IF MONTH IS GREATER THAN IZ MOVE •B* TO ERROR-?. 

FDI T0005 

139 

007130 


IF DAY IS LESS THAN 01 MOVE ’B’ TO EPROR-2. 

EDI T0005 

140 

007140 


IF DAY IS GREATER THAN 31 MOVE '8* TO ERROR-2. 

EDI T0005 

141 

0071 50 


IF YEAR IS NOT NUMERIC MOVE •B* TO ERROR-2. 

EDIT 0005 

142 

007160 


IF YEAR IS GREATER THAN 69 MOVE *8* TO ERROR-2. 

EDIT 0005 

143 

008010 


IF PRODUCT-ALPHA IS NOT ALPHABETIC MOVE ’C» TO ERROR-3. 

FD I T 0001 

144 

008015 


IF PRODUCT-NUM IS NOT NUMERIC MOVE 'C» TO ERROR-3. 

EDI T0001 

145 

008020 


IF PRODUCT-NUM IS LESS THAN 0001 MOVE 'C» TO ERROR-3. 

EDIT 0001 

146 

008030 


IF PRODUCT-NUM IS GREATFR THAN 5999 MOVE »C» TO ERROR-3. 

FDIT0001 

147 

008070 


IF SALES-QUANTITY IS NOT NUMERIC MOVE *D’ TO ERROR-4. 

EDIT 000 1 

148 

008080 


EXAMINE AREA-l-A REPLACING LEADING SPACES BY ZEROS. 

E D I T 0004 

149 

008090 


EXAMINE ARE A-2- A REPLACING LEADING SPACES BY ZEROS. 

EDIT0004 

1 50 

0081 00 


FXAMINE ARE A- 3- A REPLACING LEADING SPACES BY ZEROS. 

EDI T0004 

151 

0081 10 


IF AREA-1 IS NOT NUMERIC MOVE ’E* TO ERROR-5 

EDI T0005 

152 

008115 


GO TO 015-EDIT-END. 

FDI T0005 

153 

008120 


IF AREA-2 IS NOT NUMERIC MOVE *E* TO ERROR-5 

EDIT 0005 

154 

008125 


GO TO 015-EDIT-END. 

EDI T0005 

155 

008130 


IF AREA-3 IS NOT NUMERIC MOV F * E’ TO ERROR-5 

FDIT0005 

156 

008135 


GO TO 015-EDIT-END. 

EDIT 0005 

157 

008140 


MOVE ZEROS TO CROSS-TOTAL. 

EDIT 0001 

158 

008150 


ADD AREA-1 TO CROSS-TOTAL. 

EDIT 0001 

159 

008160 


ADD AREA-2 TO CROSS-TOTAL. 

EDIT 0001 

160 

008170 


ADD AREA-3 TO CROSS-TOTAL. 

ED I T 0001 

161 

008180 


IF CROSS-TOTAL IS NOT EQUAL TO SALES-QUANTITY, 

EDI T0001 

162 

0081 90 


MOVE ' F * TO ERROR-6. 

EDIT 0001 

163 

009010 


IF SALES-DOLL ARS IS NOT NUMERIC MOVF »G* TO ERROR-7. 

FDI T0001 

164 

009050 

015 

-EDIT-END. 

EDIT 0001 

165 

C09060 


EXIT. 

FDI TOOOi 

166 

009070 

017 

-FND-OF-JOB. 

EDI T0001 

167 

009080 


DISPLAY ’END-OF-JOB* UPON CONSOLE. 

FDI TOOOI 

168 

009090 


CLOSE CARD-IN, DISK-OUT, LISTING. 

EDI TOOOI 

169 

C 09 1 00 


STOP RUN. 

EDI TOOOI 


Figure 6. COBOL Source Statements, 3 of 3 
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About Computer Sciences Corporation 


EPG-II represents a foremost opportunity for the 
Data Processing Executive to improve his depart- 
ment’s responsiveness to senior management while 
increasing the efficiency level of the department’s 
performance. The proprietary EPG-II System is one 
of several advanced products from CSC, a total 
support organization dedicated to serving industry 
and government by designing and implementing 
systems. EPG-II mirrors the professional experience 
and technical competence of the Nation’s leading 
independent computer software firm, the first of such 
firms to be listed on the New York Stock Exchange. 

Since its founding in 1959, CSC has become a 
major source for the development and implementa- 
tion of computer-based systems. CSC has performed 
systems analysis, design, programming, simulation, 
testing, implementation, time-sharing, and computer 
facility management services for many of the Nation’s 
leading computer users. Its clientele includes a sub- 
stantial number of the “Fortune 500” companies, 
every major manufacturer of computing hardware, 


large civilian and military agencies of the Federal 
Government, and leading private institutions. 

Without compromising the most rigid of standards, 
CSC has assembled one of the largest staffs of 
professional data system specialists in the world. This 
staff presents the highest level of experience and 
education among comparable organizations in the 
information sciences. Leading technically-oriented 
staff members are at the MA, MS, and PhD levels. 

Seasoned management personnel include former 
presidents of leading corporations in the informa- 
tion sciences field, civilian governmental officials, 
senior military commanders, financial managers, 
manufacturing and transportation specialists, and 
managers of large computer-oriented complexes. 

On any basis— technical superiority, efficient and 
prompt performance, number of working systems 
designed and programs completed, dollar volume of 
business, financial responsibility, or by other mean- 
ingful Comparison-Computer Sciences Corporation 
leads in its field. 
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